unit UDMCadastro;

interface

uses
  SysUtils, Classes, DB, IBCustomDataSet, IBQuery, IBUpdateSQL, frmMain,
  IBTable;

type
  TDMCadastro = class(TDataModule)
    DSUsuario: TDataSource;
    DSSetor: TDataSource;
    QueryUsuario: TIBQuery;
    QuerySetor: TIBQuery;
    QueryModulo: TIBQuery;
    QueryUsuario_Modulo: TIBQuery;
    QuerySetor_Modulo: TIBQuery;
    QueryLogin: TIBQuery;

    DSModulo: TDataSource;
    DSUsuario_Modulo: TDataSource;
    DSSetor_Modulo: TDataSource;
    DSFabricante: TDataSource;

    IBUpdateSQLUsuario: TIBUpdateSQL;
    IBUpdateSQLSetor: TIBUpdateSQL;
    IBUpdateSQLModulo: TIBUpdateSQL;
    IBUpdateUsuario_Modulo: TIBUpdateSQL;
    IBUpdateSetor_Modulo: TIBUpdateSQL;
    IBUpdateSQLFabricante: TIBUpdateSQL;

    QueryFabricante: TIBQuery;
    DSProduto: TDataSource;
    IBUpdateSQLProduto: TIBUpdateSQL;
    QueryProduto: TIBQuery;
    DSSubProduto: TDataSource;
    IBUpdateSQLSubProduto: TIBUpdateSQL;
    QuerySubProduto: TIBQuery;
    QueryIndicacao: TIBQuery;
    DSIndicacao: TDataSource;
    IBUpdateSQLIndicacao: TIBUpdateSQL;
    QueryGrupo: TIBQuery;
    DSGrupo: TDataSource;
    IBUpdateSQLGrupo: TIBUpdateSQL;
    DSPreCliente: TDataSource;
    QueryPreCliente: TIBQuery;
    IBUpdateSQLPreCliente: TIBUpdateSQL;
    QueryVendedor: TIBQuery;
    DSVendedor: TDataSource;
    QueryPreClientesDoVendedor: TIBQuery;
    DSPreClientesDoVendedor: TDataSource;
    DSOcorrencia: TDataSource;
    IBUpdateSQLOcorrencia: TIBUpdateSQL;
    QueryOcorrencia: TIBQuery;
    IBUpdateSQLAgenda: TIBUpdateSQL;
    DSAgenda: TDataSource;
    QueryAgenda: TIBQuery;
    IBUpdateSQLPreClientesDoVendedor: TIBUpdateSQL;
    DSBuscaPreCliente: TDataSource;
    QueryBuscaPreCliente: TIBQuery;
    DSPreClienteAgendado: TDataSource;
    QueryPreClienteAgendado: TIBQuery;
    DSCliente: TDataSource;
    QueryCliente: TIBQuery;
    IBUpdateSQLCliente: TIBUpdateSQL;
    QueryEndereco: TIBQuery;
    IBUpdateSQLEndereco: TIBUpdateSQL;
    DSEndereco: TDataSource;
    QueryPedido: TIBQuery;
    IBUpdateSQLPedido: TIBUpdateSQL;
    DSPedido: TDataSource;
    QueryItemPedido: TIBQuery;
    IBUpdateSQLItemPedido: TIBUpdateSQL;
    DataSource1: TDataSource;
    IBUpdateSQLBuscaPrecliente: TIBUpdateSQL;
    QueryFrete: TIBQuery;
    DSFrete: TDataSource;
    IBUpdateFrete: TIBUpdateSQL;
    UpdateTiposCaixa: TIBUpdateSQL;
    DSTiposCaixa: TDataSource;
    QueryTiposCaixa: TIBQuery;
    QueryTipoFrete: TIBQuery;
    DSTipoFrete: TDataSource;
    UpdateTipoFrete: TIBUpdateSQL;
    QueryTiposFrete_VF: TIBQuery;
    QueryTiposCaixa_VF: TIBQuery;
    DSTiposCaixa_VF: TDataSource;
    DSTiposFrete_VF: TDataSource;
    UpdateTiposCaixa_VF: TIBUpdateSQL;
    UpdateTiposFrete_VF: TIBUpdateSQL;
    QueryTipoPagamento: TIBQuery;
    DSTipoPagamento: TDataSource;
    UpdateTipoPagamento: TIBUpdateSQL;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DMCadastro: TDMCadastro;

implementation

{$R *.dfm}

procedure TDMCadastro.DataModuleCreate(Sender: TObject);
begin
  QueryUsuario.Active    := true;
  QuerySetor.Active      := true;
  QueryModulo.Active     := true;
  QueryFabricante.Active := true;
  QueryProduto.Active    := true;
  QueryFrete.Active      := true;
//  QuerySubProduto.Active := true;
  QueryIndicacao.Active  := true;
  QueryGrupo.Active      := true;
  QueryPreCliente.Active := true;
  QueryOcorrencia.Active := true;
  QueryCliente.Active    := true;
  QueryEndereco.Active   := true;
  QueryPedido.Active     := true;
  QueryItemPedido.Active := true;

  QueryVendedor.Active   := true;
  QueryBuscaPreCliente.Active := true;
  QueryTiposCaixa.Active := true;
  QueryTipoFrete.Active := true;
  QueryTiposFrete_VF.Active := true;
  QueryTiposCaixa_VF.Active := true;

  QueryTipoPagamento.Active := true;
{
  QueryAgenda.Active     := true;
}
end;

end.
